home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / smfdoor / frmtitle.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-06-30  |  1.8 KB  |  57 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTitlePage 
  3.    ClientHeight    =   5865
  4.    ClientLeft      =   4350
  5.    ClientTop       =   1530
  6.    ClientWidth     =   3465
  7.    Icon            =   "frmTitlePage.frx":0000
  8.    LinkTopic       =   "Form1"
  9.    Picture         =   "frmTitlePage.frx":08CA
  10.    ScaleHeight     =   5865
  11.    ScaleWidth      =   3465
  12.    Begin VB.Label Label1 
  13.       BackColor       =   &H80000012&
  14.       Caption         =   "DoorWays"
  15.       BeginProperty Font 
  16.          Name            =   "MS Sans Serif"
  17.          Size            =   24
  18.          Charset         =   0
  19.          Weight          =   700
  20.          Underline       =   0   'False
  21.          Italic          =   0   'False
  22.          Strikethrough   =   0   'False
  23.       EndProperty
  24.       ForeColor       =   &H000000FF&
  25.       Height          =   495
  26.       Left            =   600
  27.       TabIndex        =   0
  28.       Top             =   5010
  29.       Width           =   2415
  30.    End
  31. Attribute VB_Name = "frmTitlePage"
  32. Attribute VB_GlobalNameSpace = False
  33. Attribute VB_Creatable = False
  34. Attribute VB_PredeclaredId = True
  35. Attribute VB_Exposed = False
  36. Private Sub Form_DblClick()
  37. For X = 1 To 10000
  38. If X <= 2000 Then frmTitlePage.Caption = "Loading Forms....."
  39. If X > 2000 And X <= 6000 Then frmTitlePage.Caption = "Checking For Connection....."
  40. If X > 6000 And X <= 8000 Then frmTitlePage.Caption = "Starting....."
  41. 'Image1.Visible = False
  42. 'If X >= 2000 And X <= 2100 Or X >= 6000 Or X <= 6100 Or X > 8000 Or X <= 8100 Or X >= 9900 Or X <= 10000 Then
  43. 'Image1.Visible = False
  44. 'Else
  45. 'Image1.Visible = True
  46. 'End If
  47. Next X
  48. frmTitlePage.Hide
  49. frmDoorToTheNet.Show
  50. End Sub
  51. Private Sub Form_Load()
  52. frmfakeForm.Picture = frmTitlePage.Picture
  53. frmTitlePage.Show
  54. frmTitlePage.Picture = frmfakeForm.Picture
  55. Call Form_DblClick
  56. End Sub
  57.